home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / storage / function / pcmcia / socket / intrupt2.scr < prev    next >
Encoding:
Text File  |  1994-05-12  |  5.0 KB  |  137 lines
  1. @thread intrupt2.log
  2. @newalias AC1 PCMC.GRA
  3. AC1 SET SOCKET=0
  4. AC1 SET ADAPTER=0
  5.  
  6. AC1 PCMC_OPEN
  7. * ----- reseting the system's interrupts -----
  8.  
  9. AC1 PCMC_ACKINTERRUPT
  10. AC1 PCMC_ACKINTERRUPT
  11.  
  12. * ----- only insert card into socket 1 -----
  13.  
  14. AC1 RESPONSE $PROMPT="INSERT CARD: SOCKET 1, ENTER..."  $RESPONSE=JUNK $PAUSE=-1
  15. AC1 PCMC_ACKINTERRUPT
  16. AC1 PCMC_ACKINTERRUPT
  17.  
  18. * ----- only remove card from socket 1 -----
  19.  
  20. AC1 RESPONSE $PROMPT="REMOVE CARD: SOCKET 1, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  21. AC1 PCMC_ACKINTERRUPT
  22. AC1 PCMC_ACKINTERRUPT
  23.  
  24. * ----- insert into and remove once from socket #1 -----
  25. AC1 RESPONSE $PROMPT="INSERT CARD: SOCKET 1, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  26. AC1 RESPONSE $PROMPT="REMOVE CARD: SOCKET 1, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  27. AC1 PCMC_ACKINTERRUPT
  28. AC1 PCMC_ACKINTERRUPT
  29.  
  30. * ----- insert into and remove from twice socket #1 -----
  31. AC1 RESPONSE $PROMPT="INSERT CARD: SOCKET 1, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  32. AC1 RESPONSE $PROMPT="REMOVE CARD: SOCKET 1, ENTER..." $RESPONSE=JUNK $PAUSE=-1 
  33. AC1 RESPONSE $PROMPT="INSERT CARD: SOCKET 1, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  34. AC1 RESPONSE $PROMPT="REMOVE CARD: SOCKET 1, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  35. AC1 PCMC_ACKINTERRUPT
  36. AC1 PCMC_ACKINTERRUPT
  37.  
  38. * ----- only insert card into socket 2 -----
  39.  
  40. AC1 SET SOCKET=1
  41. AC1 PCMC_OPEN
  42. AC1 RESPONSE $PROMPT="INSERT CARD: SOCKET 2, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  43. AC1 PCMC_ACKINTERRUPT
  44. AC1 PCMC_ACKINTERRUPT
  45.  
  46. * ----- only remove card from socket 2 -----
  47.  
  48. AC1 RESPONSE $PROMPT="REMOVE CARD: SOCKET 2, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  49. AC1 PCMC_ACKINTERRUPT
  50. AC1 PCMC_ACKINTERRUPT
  51.  
  52. * ----- insert into and remove once from socket #2 -----
  53. AC1 RESPONSE $PROMPT="INSERT CARD: SOCKET 2, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  54. AC1 RESPONSE $PROMPT="REMOVE CARD: SOCKET 2, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  55. AC1 PCMC_ACKINTERRUPT
  56. AC1 PCMC_ACKINTERRUPT
  57.  
  58. * ----- insert into and remove from twice socket #2 -----
  59. AC1 RESPONSE $PROMPT="INSERT CARD: SOCKET 2, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  60. AC1 RESPONSE $PROMPT="REMOVE CARD: SOCKET 2, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  61. AC1 RESPONSE $PROMPT="INSERT CARD: SOCKET 2, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  62. AC1 RESPONSE $PROMPT="REMOVE CARD: SOCKET 2, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  63. AC1 PCMC_ACKINTERRUPT
  64. AC1 PCMC_ACKINTERRUPT
  65.  
  66. * ----- insert into both socket #1 and #2 -----
  67. AC1 SET SOCKET=0
  68. AC1 RESPONSE $PROMPT="INSERT CARD: SOCKET 1, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  69. AC1 SET SOCKET=1
  70. AC1 RESPONSE $PROMPT="INSERT CARD: SOCKET 2, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  71. AC1 PCMC_ACKINTERRUPT
  72. AC1 PCMC_ACKINTERRUPT
  73.  
  74. * ----- remove both sockets #1 and #2 -----
  75. AC1 SET SOCKET=0
  76. AC1 RESPONSE $PROMPT="REMOVE CARD: SOCKET 1, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  77. AC1 SET SOCKET=1
  78. AC1 RESPONSE $PROMPT="REMOVE CARD: SOCKET 2, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  79. AC1 PCMC_ACKINTERRUPT
  80. AC1 PCMC_ACKINTERRUPT
  81.  
  82. * ----- insert into both but remove just #1 -----
  83. AC1 SET SOCKET=0
  84. AC1 RESPONSE $PROMPT="INSERT CARD: SOCKET 1, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  85. AC1 SET SOCKET=1
  86. AC1 RESPONSE $PROMPT="INSERT CARD: SOCKET 2, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  87. AC1 SET SOCKET=0
  88. AC1 RESPONSE $PROMPT="REMOVE CARD: SOCKET 1, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  89. AC1 PCMC_ACKINTERRUPT
  90. AC1 PCMC_ACKINTERRUPT
  91.  
  92. * ----- remove #2 -----
  93. AC1 SET SOCKET=1
  94. AC1 RESPONSE $PROMPT="REMOVE CARD: SOCKET 2, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  95. AC1 PCMC_ACKINTERRUPT
  96. AC1 PCMC_ACKINTERRUPT
  97.  
  98. * ----- insert into both and remove from both sockets -----
  99. AC1 SET SOCKET=0
  100. AC1 RESPONSE $PROMPT="INSERT CARD: SOCKET 1, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  101. AC1 SET SOCKET=1
  102. AC1 RESPONSE $PROMPT="INSERT CARD: SOCKET 2, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  103. AC1 SET SOCKET=0
  104. AC1 RESPONSE $PROMPT="REMOVE CARD: SOCKET 1, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  105. AC1 SET SOCKET=1
  106. AC1 RESPONSE $PROMPT="REMOVE CARD: SOCKET 2, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  107. AC1 PCMC_ACKINTERRUPT
  108. AC1 PCMC_ACKINTERRUPT
  109.  
  110. * ----- insert into both, socket #2 first -----
  111. AC1 SET SOCKET=1
  112. AC1 RESPONSE $PROMPT="INSERT CARD: SOCKET 2, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  113. AC1 SET SOCKET=0
  114. AC1 RESPONSE $PROMPT="INSERT CARD: SOCKET 1, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  115. AC1 PCMC_ACKINTERRUPT
  116. AC1 PCMC_ACKINTERRUPT
  117.  
  118. * ----- remove both #1 and #2 -----
  119. AC1 SET SOCKET=0
  120. AC1 RESPONSE $PROMPT="REMOVE CARD: SOCKET 1, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  121. AC1 SET SOCKET=1
  122. AC1 RESPONSE $PROMPT="REMOVE CARD: SOCKET 2, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  123. AC1 PCMC_ACKINTERRUPT
  124. AC1 PCMC_ACKINTERRUPT
  125.  
  126. * ----- insert into both sockets, #2 first, then remove #1 first -----
  127. AC1 SET SOCKET=1
  128. AC1 RESPONSE $PROMPT="INSERT CARD: SOCKET 2, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  129. AC1 SET SOCKET=0
  130. AC1 RESPONSE $PROMPT="INSERT CARD: SOCKET 1, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  131. AC1 RESPONSE $PROMPT="REMOVE CARD: SOCKET 1, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  132. AC1 SET SOCKET=1
  133. AC1 RESPONSE $PROMPT="REMOVE CARD: SOCKET 2, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  134. AC1 PCMC_ACKINTERRUPT
  135. AC1 PCMC_ACKINTERRUPT
  136. AC1 PCMC_CLOSE
  137.